Private Sub CalcSalesTax(ByVal Price As Double, ByVal SalesTax As Double)
  ' Cel: Ten podprogram oblicza podatek naleny
  '      od sprzeday pewnego przedmiotu.
  '
  ' Argumenty:
  '  Price    Cena sprzeday przedmiotu
  '  SalesTax Kwota nalenego podatku
  '
  ' Uwaga: W obliczeniach wykorzystywana jest staa symboliczna
  '     SalesTaxRate, w ktrej zapisana jest aktualna
  '     stawka podatku.

  SalesTax = Price * SalesTaxRate

End Sub
Prosz zwrci 